redo_load(
  stores = here("data/stores.sales_train_validation.extract.rds"),
  items  = here("data/items.sales_train_validation.extract.rds"),
  prices = here("data/prices.sell_prices.extract.rds")
)

Explore Prices

set.seed(2542589)
ck_stores = sample(stores[["store_id"]], 4)
ck_items = sample(items[["item_id"]], 3)

prices[
  item_id %in% ck_items
] %>%
  merge(stores[,c("store_id", "state_id", "store_id_state")], by = c("store_id"), all.x = TRUE) %>%
  as_tibble() %>%
  mutate(
    item_id = paste0("item_id=", item_id),
    store_id = paste0("store_id=", store_id),
    state_id = paste0("state_id=", state_id),
    store_id_state = paste0("store_id_state=", store_id_state)
  ) %>%
  plotf(price ~ d + store_id_state + state_id + item_id, geom=geom_line) %>%
  ggplotly()